(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     74475,       1889]
NotebookOptionsPosition[     64846,       1715]
NotebookOutlinePosition[     65580,       1740]
CellTagsIndexPosition[     65492,       1735]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:8bfe\:9898\:4e09", "Title",
 CellChangeTimes->{{3.785989637470505*^9, 
  3.7859896398012047`*^9}},ExpressionUUID->"70258d93-0b0d-4b4f-a97b-\
34523265cc83"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PowerNest", "[", 
   RowBox[{"A_", ",", "ops_", ",", "h_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "x0", ",", "c", ",", "x", ",", "\[Lambda]1", ",", "i", ",", "x1", ",", 
      "x2", ",", "\[Lambda]2", ",", "d", ",", "x3", ",", "\[Lambda]3"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "A", "]"}], "//", "First"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"x0", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
        RowBox[{"{", "c", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x1", "=", 
      RowBox[{"NestWhile", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"A", ".", "#"}], ")"}], "/", 
          RowBox[{"Norm", "[", 
           RowBox[{"A", ".", "#"}], "]"}]}], "&"}], ",", "x0", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], ")"}], 
         "&"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x1", ".", "A", ".", "x1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x1", ".", "x1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"d", "=", 
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Abs", "[", "\[Lambda]1", "]"}]}], ",", 
        RowBox[{"Abs", "[", "\[Lambda]1", "]"}], ",", "h"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]3", "=", 
      RowBox[{"{", "\[Lambda]1", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"i", "<", 
        RowBox[{"Length", "[", "d", "]"}]}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x2", "=", 
           RowBox[{"NestWhile", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"LinearSolve", "[", 
                RowBox[{
                 RowBox[{"A", "-", 
                  RowBox[{
                   RowBox[{"d", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "*", 
                   RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}], 
                "]"}], "/", 
               RowBox[{"Norm", "[", 
                RowBox[{"LinearSolve", "[", 
                 RowBox[{
                  RowBox[{"A", "-", 
                   RowBox[{
                    RowBox[{"d", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "*", 
                    RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}],
                  "]"}], "]"}]}], "&"}], ",", "x0", ",", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"Norm", "[", 
                  RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], 
               ")"}], "&"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[Lambda]2", "=", 
           RowBox[{
            RowBox[{"1.", "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x2", ".", "A", ".", "x2"}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"x2", ".", "x2"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"d", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[Lambda]3", "=", 
           RowBox[{"AppendTo", "[", 
            RowBox[{"\[Lambda]3", ",", "\[Lambda]2"}], "]"}]}], ";"}], 
         "\[IndentingNewLine]", "}"}], ";", 
        RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"{", 
       RowBox[{"\[Lambda]3", ",", "d"}], "}"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.785998447952875*^9, 3.7859985294581194`*^9}, {
   3.785998560341318*^9, 3.7859985776775618`*^9}, {3.7859986293663416`*^9, 
   3.785998797630701*^9}, {3.785998837757482*^9, 3.7859988385612955`*^9}, {
   3.785998907960845*^9, 3.7859991542645817`*^9}, {3.785999238164857*^9, 
   3.785999258227201*^9}, {3.7859992974713335`*^9, 3.7859993148353667`*^9}, {
   3.7859993563265743`*^9, 3.785999372692844*^9}, {3.7859994477820387`*^9, 
   3.785999584175308*^9}, {3.785999630585856*^9, 3.7859997067677827`*^9}, {
   3.785999741179446*^9, 3.7859997473309903`*^9}, {3.7860000143954086`*^9, 
   3.7860000662675753`*^9}, {3.786000156299039*^9, 3.786000167727477*^9}, {
   3.7860002985346365`*^9, 3.786000329103979*^9}, {3.786000875046593*^9, 
   3.7860008755542355`*^9}, {3.7860010345535183`*^9, 
   3.7860010362849274`*^9}, {3.7860015554121532`*^9, 3.786001557570423*^9}, {
   3.7860019385328517`*^9, 3.786001942534623*^9}, {3.786002053623938*^9, 
   3.786002085157898*^9}, {3.7860024153797693`*^9, 3.7860024160310745`*^9}, {
   3.786008575574348*^9, 3.7860086043154836`*^9}, {3.7860088665916405`*^9, 
   3.7860089003802767`*^9}, {3.78600910326152*^9, 3.7860091095566845`*^9}, {
   3.7860092740760202`*^9, 3.7860092864758997`*^9}, {3.7860093180489902`*^9, 
   3.78600932055231*^9}, {3.786009461381673*^9, 3.7860094847147655`*^9}, {
   3.7860095761121335`*^9, 3.7860095769358873`*^9}, {3.786009867753792*^9, 
   3.7860098686643686`*^9}, 3.7860099076604557`*^9, {3.7860100724023485`*^9, 
   3.786010080795561*^9}, 3.7860101375994587`*^9, {3.7860102831604033`*^9, 
   3.786010297487049*^9}, {3.7860103450819483`*^9, 3.786010374067831*^9}, {
   3.7860104213434668`*^9, 3.786010422079506*^9}, {3.78601046956347*^9, 
   3.7860104877704005`*^9}, {3.786010553561578*^9, 3.786010579752369*^9}, {
   3.78601061773479*^9, 3.7860106823208947`*^9}, {3.786011405349552*^9, 
   3.7860114072993364`*^9}, {3.7860121148153267`*^9, 3.786012115023762*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"ea4d589b-5cdd-4f5e-b4f6-b204fc4ebf85"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PowerNest", "[", 
  RowBox[{"A", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{
  3.786001127357901*^9, {3.7860012045166593`*^9, 3.7860012146236296`*^9}, {
   3.7860012969069843`*^9, 3.786001297012703*^9}, {3.7860013611761045`*^9, 
   3.7860013927056017`*^9}, {3.7860014753597107`*^9, 3.786001476113695*^9}, 
   3.786001563080646*^9, {3.786002096299102*^9, 3.7860021089986477`*^9}, {
   3.786002146677927*^9, 3.7860021516945496`*^9}, 3.7860024201889095`*^9, {
   3.786009580691882*^9, 3.786009586752891*^9}, {3.7860099390193386`*^9, 
   3.7860099400026717`*^9}, {3.786010123299884*^9, 3.786010124375008*^9}, {
   3.7860105147378335`*^9, 3.7860105286763244`*^9}, {3.7860105879404707`*^9, 
   3.7860105880910683`*^9}, {3.7860110502990103`*^9, 3.786011050435645*^9}, 
   3.786011393139576*^9, {3.7860121186872625`*^9, 3.786012125939865*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"07d1810b-eee0-432a-9c52-8a16a0b5ddd9"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.786001469850478*^9, 3.7860014771060405`*^9}, {
   3.7860015635184746`*^9, 3.786001600184369*^9}, 3.7860017147887545`*^9, {
   3.7860019038163166`*^9, 3.7860019112803545`*^9}, {3.7860019455299826`*^9, 
   3.786001961298811*^9}, {3.786002091860971*^9, 3.7860021094125404`*^9}, {
   3.7860021524722786`*^9, 3.786002181355559*^9}, {3.7860023304652677`*^9, 
   3.7860023335081744`*^9}, {3.7860024209149675`*^9, 
   3.7860024318108273`*^9}, {3.7860089097362556`*^9, 3.786008922596862*^9}, {
   3.786009466353555*^9, 3.7860095047818522`*^9}, {3.786009588241937*^9, 
   3.7860096063622894`*^9}, 3.786009879481954*^9, {3.7860099118162975`*^9, 
   3.7860099411954975`*^9}, {3.7860100583928843`*^9, 3.786010084103682*^9}, {
   3.786010125249669*^9, 3.786010156766045*^9}, {3.7860103029275355`*^9, 
   3.786010330766234*^9}, {3.7860103677337327`*^9, 3.7860103922397866`*^9}, {
   3.7860104257755833`*^9, 3.7860104319051833`*^9}, {3.786010471983*^9, 
   3.78601058894379*^9}, {3.7860106247151227`*^9, 3.786010677000125*^9}, 
   3.786010709204706*^9, 3.786011051643415*^9, 3.7860112251363897`*^9, 
   3.7860114855755434`*^9, 3.7860120296777725`*^9, 3.7860121210419645`*^9, 
   3.7860123752628393`*^9, 3.786015425078123*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"4ebab87b-0de4-41e4-8088-455370e66844"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "5", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", "8", ",", "20"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7860153895595284`*^9, 3.786015409896185*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"62d9cd52-0890-42da-bbdb-196254dd9149"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8", ",", "20"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.786015411250548*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"45e85d3b-9ac1-4130-9f41-f6d1ef2c4cf1"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"7e447773-389d-4b86-ad2b-9fd9cbfa4936"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PowerNest", "[", 
   RowBox[{"A_", ",", "ops_", ",", "h_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "x0", ",", "c", ",", "x", ",", "\[Lambda]1", ",", "i", ",", "x1", ",", 
      "x2", ",", "\[Lambda]2", ",", "d", ",", "x3", ",", "\[Lambda]3", ",", 
      "j", ",", "k"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "A", "]"}], "//", "First"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"x0", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
        RowBox[{"{", "c", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x1", "=", 
      RowBox[{"NestWhile", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"A", ".", "#"}], ")"}], "/", 
          RowBox[{"Norm", "[", 
           RowBox[{"A", ".", "#"}], "]"}]}], "&"}], ",", "x0", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], ")"}], 
         "&"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x1", ".", "A", ".", "x1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x1", ".", "x1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"d", "=", 
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Abs", "[", "\[Lambda]1", "]"}]}], ",", 
        RowBox[{"Abs", "[", "\[Lambda]1", "]"}], ",", "h"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]3", "=", 
      RowBox[{"{", "\[Lambda]1", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"i", "<", 
        RowBox[{"Length", "[", "d", "]"}]}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x2", "=", 
           RowBox[{"NestWhile", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"LinearSolve", "[", 
                RowBox[{
                 RowBox[{"A", "-", 
                  RowBox[{
                   RowBox[{"d", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "*", 
                   RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}], 
                "]"}], "/", 
               RowBox[{"Norm", "[", 
                RowBox[{"LinearSolve", "[", 
                 RowBox[{
                  RowBox[{"A", "-", 
                   RowBox[{
                    RowBox[{"d", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "*", 
                    RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}],
                  "]"}], "]"}]}], "&"}], ",", "x0", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Abs", "[", 
                RowBox[{"Norm", "[", 
                 RowBox[{"#1", "-", "#2"}], "]"}], "]"}], "<", "ops"}], "&"}],
              ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[Lambda]2", "=", 
           RowBox[{
            RowBox[{"1.", "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x2", ".", "A", ".", "x2"}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"x2", ".", "x2"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"d", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[Lambda]3", "=", 
           RowBox[{"AppendTo", "[", 
            RowBox[{"\[Lambda]3", ",", "\[Lambda]2"}], "]"}]}], ";"}], 
         "\[IndentingNewLine]", "}"}], ";", 
        RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "\[Lambda]3", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.786010775030982*^9, 3.7860109317794857`*^9}, {
   3.7860109797387104`*^9, 3.786010980243397*^9}, {3.786011162225173*^9, 
   3.786011164535947*^9}, {3.7860112553022633`*^9, 3.7860113524040146`*^9}, {
   3.78601153803316*^9, 3.7860115531477385`*^9}, {3.786011645979576*^9, 
   3.786011646902108*^9}, {3.7860116801625423`*^9, 3.786011733096425*^9}, 
   3.7860117929613504`*^9, {3.7860118502696967`*^9, 3.7860118604564495`*^9}, {
   3.786011912158265*^9, 3.78601191309875*^9}, {3.7860119881732173`*^9, 
   3.7860119891057243`*^9}, {3.7860124736919403`*^9, 
   3.7860125051815147`*^9}, {3.786012537637228*^9, 3.786012585205015*^9}, {
   3.7860126174897137`*^9, 3.786012660882428*^9}, {3.7860127322409167`*^9, 
   3.78601276192408*^9}, {3.7860128344214373`*^9, 3.786012845127808*^9}},
 CellLabel->
  "In[253]:=",ExpressionUUID->"a267213c-e80a-491c-9cb4-346f02eb4189"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PowerNest", "[", 
  RowBox[{"A", ",", "0.000001", ",", "0.1"}], "]"}]], "Input",
 CellChangeTimes->{{3.786011358686214*^9, 3.786011360005686*^9}, {
   3.786012769842866*^9, 3.7860127713787932`*^9}, 3.786012809190634*^9, {
   3.7860128602243958`*^9, 3.786012865467374*^9}, {3.786012903468777*^9, 
   3.7860129072386975`*^9}, 3.786012977610677*^9},
 CellLabel->
  "In[258]:=",ExpressionUUID->"ccfe46eb-dce6-41de-8332-b3338026c39e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8.587965213904178`", ",", 
   RowBox[{"-", "8.774921810831195`"}], ",", 
   RowBox[{"-", "8.673540440623942`"}], ",", 
   RowBox[{"-", "8.572180734002078`"}], ",", 
   RowBox[{"-", "8.47084384416346`"}], ",", 
   RowBox[{"-", "8.369530992389782`"}], ",", 
   RowBox[{"-", "8.268243473088983`"}], ",", 
   RowBox[{"-", "8.166982659293026`"}], ",", 
   RowBox[{"-", "8.06575000865987`"}], ",", 
   RowBox[{"-", "7.964547070034425`"}], ",", 
   RowBox[{"-", "7.863375490630273`"}], ",", 
   RowBox[{"-", "7.762237023901833`"}], ",", 
   RowBox[{"-", "7.661133538185742`"}], ",", 
   RowBox[{"-", "7.5600670262006835`"}], ",", 
   RowBox[{"-", "7.459039615506916`"}], ",", 
   RowBox[{"-", "7.358053580040635`"}], ",", 
   RowBox[{"-", "7.257111352854392`"}], ",", 
   RowBox[{"-", "7.156215540213411`"}], ",", 
   RowBox[{"-", "7.055368937219328`"}], ",", 
   RowBox[{"-", "6.954574545158129`"}], ",", 
   RowBox[{"-", "6.853835590798587`"}], ",", 
   RowBox[{"-", "6.753155547902114`"}], ",", 
   RowBox[{"-", "6.6525381612456025`"}], ",", 
   RowBox[{"-", "6.551987473506785`"}], ",", 
   RowBox[{"-", "6.4515078554183605`"}], ",", 
   RowBox[{"-", "6.351104039664343`"}], ",", 
   RowBox[{"-", "6.250781159072227`"}], ",", 
   RowBox[{"-", "6.150544789750106`"}], ",", 
   RowBox[{"-", "6.050400999932523`"}], ",", 
   RowBox[{"-", "5.950356405436729`"}], ",", 
   RowBox[{"-", "5.85041823279752`"}], ",", 
   RowBox[{"-", "5.750594391350822`"}], ",", 
   RowBox[{"-", "5.650893555782143`"}], ",", 
   RowBox[{"-", "5.551325260956866`"}], ",", 
   RowBox[{"-", "5.451900011219157`"}], ",", 
   RowBox[{"-", "5.352629406802809`"}], ",", 
   RowBox[{"-", "5.253526290564187`"}], ",", 
   RowBox[{"-", "5.154604918954635`"}], ",", 
   RowBox[{"-", "5.055881162037206`"}], ",", 
   RowBox[{"-", "4.957372738472897`"}], ",", 
   RowBox[{"-", "4.85909949282456`"}], ",", 
   RowBox[{"-", "4.761083724345998`"}], ",", 
   RowBox[{"-", "4.6633505787661065`"}], ",", 
   RowBox[{"-", "4.56592851761571`"}], ",", 
   RowBox[{"-", "4.4688498836153325`"}], ",", 
   RowBox[{"-", "4.37215158587504`"}], ",", 
   RowBox[{"-", "4.275875935614757`"}], ",", 
   RowBox[{"-", "4.180071672450658`"}], ",", 
   RowBox[{"-", "4.084795233950596`"}], ",", 
   RowBox[{"-", "3.9901123385047006`"}], ",", 
   RowBox[{"-", "3.896099975596578`"}], ",", 
   RowBox[{"-", "3.8028489312972313`"}], ",", 
   RowBox[{"-", "3.71046702478836`"}], ",", 
   RowBox[{"-", "3.619083300969281`"}], ",", 
   RowBox[{"-", "3.528853525723253`"}], ",", 
   RowBox[{"-", "3.4399674818406805`"}], ",", 
   RowBox[{"-", "3.352658793744752`"}], ",", 
   RowBox[{"-", "3.267218366307265`"}], ",", 
   RowBox[{"-", "3.1840130901241`"}], ",", 
   RowBox[{"-", "3.103512389344656`"}], ",", 
   RowBox[{"-", "3.026326736458839`"}], ",", 
   RowBox[{"-", "2.9532649386984597`"}], ",", 
   RowBox[{"-", "2.885421813698884`"}], ",", 
   RowBox[{"-", "2.8243168863022907`"}], ",", 
   RowBox[{"-", "2.7721224662470307`"}], ",", 
   RowBox[{"-", "2.7320563930763413`"}], ",", 
   RowBox[{"-", "2.709097121809773`"}], ",", 
   RowBox[{"-", "2.7113787105462164`"}], ",", 
   RowBox[{"-", "2.753161920284685`"}], ",", 
   RowBox[{"-", "2.8619409485254876`"}], ",", 
   RowBox[{"-", "3.0984305622844452`"}], ",", 
   RowBox[{"-", "3.6284569102784983`"}], ",", 
   RowBox[{"-", "5.123996768449118`"}], ",", 
   RowBox[{"-", "16.91408217249039`"}], ",", "5.7918269911637825`", ",", 
   "1.7405751503630156`", ",", "0.77827154598371`", ",", 
   "0.3932453139182748`", ",", "0.2161980389552356`", ",", 
   "0.1374656309846911`", ",", "0.11295759767680358`", ",", 
   "0.12151870490452055`", ",", "0.15173187798354748`", ",", 
   "0.1968930916720789`", ",", "0.25280684295515277`", ",", 
   "0.31671316443394293`", ",", "0.38672197904011707`", ",", 
   "0.46149537195915175`", ",", "0.5400596396322661`", ",", 
   "0.6216892147353668`", ",", "0.7058323205148037`", ",", 
   "0.792061841525963`", ",", "0.880041966147221`", ",", 
   "0.9695049936632669`", ",", "1.0602348668431576`", ",", 
   "1.152055259409765`", ",", "1.2448208131175744`", ",", 
   "1.3384105937192097`", ",", "1.4327231366727404`", ",", 
   "1.527672649361289`", ",", "1.6231860664492082`", ",", 
   "1.7192007426450746`", ",", "1.8156626272923173`", ",", 
   "1.9125248071244858`", ",", "2.0097463331454826`", ",", 
   "2.107291268804528`", ",", "2.205127912005179`", ",", 
   "2.3032281547505864`", ",", "2.4015669525671997`", ",", 
   "2.5001218820852515`", ",", "2.5988727698597054`", ",", 
   "2.697801379096301`", ",", "2.796891143694098`", ",", 
   "2.8961269411387502`", ",", "2.9954948974328435`", ",", 
   "3.094982218543637`", ",", "3.1945770438684797`", ",", 
   "3.2942683180263277`", ",", "3.3940456779276187`", ",", 
   "3.493899352590017`", ",", "3.5938200735815076`", ",", 
   "3.6937989943063037`", ",", "3.7938276166190743`", ",", 
   "3.893897723471996`", ",", "3.994001316477024`", ",", "4.094130557410313`",
    ",", "4.194277712803432`", ",", "4.294435100861741`", ",", 
   "4.394595040028311`", ",", "4.4947497985756`", ",", "4.59489154465959`", 
   ",", "4.695012296315152`", ",", "4.7951038709094815`", ",", 
   "4.895157833605115`", ",", "4.995165444418232`", ",", "5.095117603494493`",
    ",", "5.195004794267705`", ",", "5.29481702422028`", ",", 
   "5.394543763034811`", ",", "5.494173878020258`", ",", "5.593695566823628`",
    ",", "5.693096287610795`", ",", "5.792362687133767`", ",", 
   "5.89148052741654`", ",", "5.990434612213563`", ",", "6.089208714957089`", 
   ",", "6.1877855106548925`", ",", "6.286146515181615`", ",", 
   "6.384272036692976`", ",", "6.482141145565894`", ",", "6.579731671430979`",
    ",", "6.677020238638663`", ",", "6.773982355026339`", ",", 
   "6.870592573285804`", ",", "6.966824749724315`", ",", "7.06265243190427`", 
   ",", "7.158049414608314`", ",", "7.252990512748036`", ",", 
   "7.347452609909303`", ",", "7.441416051485437`", ",", "7.534866460410246`",
    ",", "7.6277970589954815`", ",", "7.720211578526378`", ",", 
   "7.812127823451516`", ",", "7.903581921398871`", ",", "7.994633223854629`",
    ",", "8.085369713807031`", ",", "8.175913615643555`", ",", 
   "8.266426684465468`", ",", "8.357114385511846`", ",", "8.448227892074819`",
    ",", "8.540062598917055`"}], "}"}]], "Output",
 CellChangeTimes->{{3.786010867999666*^9, 3.786010934401472*^9}, 
   3.786010984445282*^9, {3.7860111691186914`*^9, 3.786011179034172*^9}, 
   3.786011300232541*^9, {3.7860113448831778`*^9, 3.7860113650950747`*^9}, 
   3.786011559357643*^9, 3.7860116493797073`*^9, {3.7860117110618925`*^9, 
   3.78601175244867*^9}, 3.786011796092969*^9, 3.7860118665631447`*^9, 
   3.786011915164266*^9, {3.786011985941187*^9, 3.7860119922931986`*^9}, {
   3.786012401913797*^9, 3.7860124382075963`*^9}, {3.786012483238372*^9, 
   3.7860125076529055`*^9}, {3.786012607269007*^9, 3.78601263919482*^9}, 
   3.78601267079491*^9, {3.7860127366750546`*^9, 3.7860127719801483`*^9}, 
   3.7860128096464148`*^9, {3.7860128610262814`*^9, 3.7860128663549995`*^9}, 
   3.786012907751292*^9, 3.7860129780584793`*^9},
 CellLabel->
  "Out[258]=",ExpressionUUID->"c73591f3-57a4-4abb-a889-020ec52f2e9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Norm", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.15370243554224108`"}], ",", "0.12170925253653672`", ",", 
     "0.9805928916504447`"}], "}"}], "-", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.15370243556144791`"}], ",", "0.1217092525322728`", ",", 
     "0.9805928916479634`"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7860115710025005`*^9, 3.7860115740972247`*^9}, {
  3.786011803516435*^9, 3.786011815441801*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"959fb74e-c828-44aa-9984-442517bed27f"],

Cell[BoxData["1.9830291632758354`*^-11"], "Output",
 CellChangeTimes->{3.7860118172748995`*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"cd6915bb-62e0-4607-ae27-45a418dc748b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Norm", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.16407659559693372`"}], ",", "0.17545533546947717`", ",", 
     "0.9707184432329559`"}], "}"}], "-", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.14663011880762652`"}], ",", "0.08382244044841966`", ",", 
     "0.9856335052826343`"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7860116604638386`*^9, 3.7860116722862215`*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"995d2968-36de-4f5e-8ca5-fb504d5c8a26"],

Cell[BoxData["0.09446388769389992`"], "Output",
 CellChangeTimes->{3.7860116727053328`*^9},
 CellLabel->
  "Out[206]=",ExpressionUUID->"20d6a8ad-8e67-4d00-b2c6-a976c9e5555e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["A"], "Input",
 CellChangeTimes->{3.786011067722452*^9},
 CellLabel->
  "In[178]:=",ExpressionUUID->"e5e7b891-e3d0-4afb-885f-385b605de398"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "5"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.786011068294896*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"fe21de48-31fa-45f8-8a0d-53de323dab26"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Eigenvalues", "[", "A", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.786011097757537*^9, 3.7860111304082165`*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"03dcb426-6d13-4f54-8258-b17335f74d06"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8.587963755952376`", ",", 
   RowBox[{"-", "6.136403809478377`"}], ",", "3.5484400535260017`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.786011103505166*^9, 3.786011130912868*^9}, 
   3.7860128993617287`*^9},
 CellLabel->
  "Out[256]=",ExpressionUUID->"f98e23d2-3fe2-4def-8389-a2ed0f9ab95d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "[", 
   RowBox[{"[", "i", "]"}], "]"}], "=", 
  RowBox[{"-", "2.9532649386984597`"}]}]], "Input",
 CellChangeTimes->{{3.786013011284142*^9, 3.7860130289528894`*^9}},
 CellLabel->
  "In[259]:=",ExpressionUUID->"28e10167-3f0e-43a3-992c-38dc21445c97"],

Cell[BoxData[
 TemplateBox[{
  "Set","pkspec1",
   "\"\:8868\:8fbe\:5f0f \\!\\(\\*RowBox[{\\\"i\\\"}]\\) \:4e0d\:80fd\:4f5c\
\:4e3a\:90e8\:5206\:6307\:5b9a\:4f7f\:7528.\"",2,259,66,27778460535835151998,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7860130302843285`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[259]:=",ExpressionUUID->"4536c2fc-fd4f-4387-\
92be-5da6c9bb21fc"],

Cell[BoxData[
 RowBox[{"-", "2.9532649386984597`"}]], "Output",
 CellChangeTimes->{3.7860130302863226`*^9},
 CellLabel->
  "Out[259]=",ExpressionUUID->"f18a7b4e-b7d8-40f7-8ad1-445894d13682"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "=", "3"}]], "Input",
 CellChangeTimes->{{3.7860130643643856`*^9, 3.7860130657955575`*^9}},
 CellLabel->
  "In[260]:=",ExpressionUUID->"0f93f278-3d94-4903-9123-69ff78f3f5eb"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.7860130663410983`*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"07165002-8537-4b16-b894-2925fd00b0f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x0", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7860130693440676`*^9, 3.786013076140891*^9}},
 CellLabel->
  "In[261]:=",ExpressionUUID->"d40e1836-e906-4bd5-97c5-2cdec4ec5b1d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.7860130769846344`*^9},
 CellLabel->
  "Out[261]=",ExpressionUUID->"3177f245-2490-4774-bde1-3b83e7d38dc8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ops", "=", "0.01"}]], "Input",
 CellChangeTimes->{{3.7860130875733156`*^9, 3.7860130901065407`*^9}},
 CellLabel->
  "In[262]:=",ExpressionUUID->"6c3cf48a-2bc0-46e4-9a38-1756b51dd5df"],

Cell[BoxData["0.01`"], "Output",
 CellChangeTimes->{3.786013091023091*^9},
 CellLabel->
  "Out[262]=",ExpressionUUID->"6ac0c248-caeb-4fb9-8531-1497eec9645a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x2", ",", "\[Lambda]2"}], "]"}]], "Input",
 CellChangeTimes->{{3.7860133549212575`*^9, 3.7860133678482018`*^9}},
 CellLabel->
  "In[309]:=",ExpressionUUID->"de99d289-e1e7-4952-be7b-e82b6409ea03"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"x2", "=", 
  RowBox[{"NestWhileList", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"LinearSolve", "[", 
       RowBox[{
        RowBox[{"A", "+", 
         RowBox[{"2.9532649386984597", "*", 
          RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}], "]"}], 
      "/", 
      RowBox[{"Norm", "[", 
       RowBox[{"LinearSolve", "[", 
        RowBox[{
         RowBox[{"A", "+", 
          RowBox[{"2.9532649386984597", "*", 
           RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}], "]"}], 
       "]"}]}], "&"}], ",", "x0", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{"Norm", "[", 
        RowBox[{"#1", "-", "#2"}], "]"}], "]"}], "<", "ops"}], "&"}], ",", 
    "2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Lambda]2", "=", 
  RowBox[{
   RowBox[{"1.", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x2", ".", "A", ".", "x2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"x2", ".", "x2"}], ")"}]}], ")"}]}], "+", 
   RowBox[{"-", "2.9532649386984597"}]}]}]}], "Input",
 CellChangeTimes->{{3.78601303889633*^9, 3.786013050632636*^9}, {
  3.7860131054724483`*^9, 3.7860131254520617`*^9}, {3.786013182451728*^9, 
  3.7860131841571665`*^9}, {3.7860132349423876`*^9, 3.7860133215851517`*^9}},
 CellLabel->
  "In[310]:=",ExpressionUUID->"c87d2b94-1ea6-4476-9ec6-6bb60ef9eaf5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.9021164140654769`"}], ",", "0.008645984577781398`", ",", 
     "0.4314060991969467`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7860130964845257`*^9, 3.7860133226682553`*^9}, 
   3.7860133714745026`*^9},
 CellLabel->
  "Out[310]=",ExpressionUUID->"20f87e0b-a940-48cc-aab5-1c87338c8758"],

Cell[BoxData[
 TemplateBox[{
  "Dot","dotsh",
   "\"\:5f20\:91cf \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"-\\\", \\\"128.`\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \
\\\"129.`\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \\\"111.`\\\"}]}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"8.3698284228433`\\\", \
\\\",\\\", \\\"12.27056985491452`\\\", \\\",\\\", \
\\\"14.998136773483836`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]\\) \:548c \
\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"2\\\", \\\",\\\", \\\"3\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"0.9021164140654769`\\\"}], \
\\\",\\\", \\\"0.008645984577781398`\\\", \\\",\\\", \
\\\"0.4314060991969467`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]\\) \:542b\:6709\
\:4e0d\:517c\:5bb9\:5f62\:72b6.\"",2,311,94,27778460535835151998,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7860133226953325`*^9, 3.786013371498438*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[310]:=",ExpressionUUID->"bd8d6f45-ad7c-4edb-\
92f4-041ff9db221e"],

Cell[BoxData[
 TemplateBox[{
  "Dot","dotsh",
   "\"\:5f20\:91cf \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{\\\"1\\\", \\\",\\\", \\\"2\\\", \\\",\\\", \\\"3\\\"}], \\\"}\\\"}], \
\\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \
\\\"0.9021164140654769`\\\"}], \\\",\\\", \\\"0.008645984577781398`\\\", \
\\\",\\\", \\\"0.4314060991969467`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]\\) \
\:548c \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"1\\\
\", \\\",\\\", \\\"2\\\", \\\",\\\", \\\"3\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"0.9021164140654769`\\\"}], \
\\\",\\\", \\\"0.008645984577781398`\\\", \\\",\\\", \
\\\"0.4314060991969467`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]\\) \:542b\:6709\
\:4e0d\:517c\:5bb9\:5f62\:72b6.\"",2,311,95,27778460535835151998,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7860133226953325`*^9, 3.78601337152038*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[310]:=",ExpressionUUID->"82207d85-4fa7-4cd4-\
85a0-4c6c6aa2d37c"],

Cell[BoxData[
 TemplateBox[{
  "Dot","dotsh",
   "\"\:5f20\:91cf \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"-\\\", \\\"128.`\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \
\\\"129.`\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \\\"111.`\\\"}]}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"8.3698284228433`\\\", \
\\\",\\\", \\\"12.27056985491452`\\\", \\\",\\\", \
\\\"14.998136773483836`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]\\) \:548c \
\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"2\\\", \\\",\\\", \\\"3\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"0.9021164140654769`\\\"}], \
\\\",\\\", \\\"0.008645984577781398`\\\", \\\",\\\", \
\\\"0.4314060991969467`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]\\) \:542b\:6709\
\:4e0d\:517c\:5bb9\:5f62\:72b6.\"",2,311,96,27778460535835151998,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7860133226953325`*^9, 3.786013371543318*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[310]:=",ExpressionUUID->"2160939b-6702-44d3-\
8614-c4b907ec8c6f"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"\:5728\:672c\:6b21\:8ba1\:7b97\:4e2d\:ff0c\\!\\(\\*StyleBox[RowBox[{\\\"\
Dot\\\", \\\"::\\\", \\\"dotsh\\\"}], \\\"MessageName\\\"]\\) \:7684\:8fdb\
\:4e00\:6b65\:8f93\:51fa\:5c06\:88ab\:6291\:5236.\"",2,311,97,
   27778460535835151998,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7860133226953325`*^9, 3.786013371563265*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[310]:=",ExpressionUUID->"42fa6023-d65e-4793-\
af2b-5bb070337c78"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2.9532649386984597`"}], "+", 
  FractionBox[
   RowBox[{"1.`", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.9021164140654769`"}], ",", "0.008645984577781398`", 
         ",", "0.4314060991969467`"}], "}"}]}], "}"}], ".", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.9021164140654769`"}], ",", "0.008645984577781398`", 
         ",", "0.4314060991969467`"}], "}"}]}], "}"}]}]}], 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "128.`"}], ",", 
        RowBox[{"-", "129.`"}], ",", 
        RowBox[{"-", "111.`"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "8.3698284228433`", ",", "12.27056985491452`", ",", 
        "14.998136773483836`"}], "}"}]}], "}"}], ".", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.9021164140654769`"}], ",", "0.008645984577781398`", 
        ",", "0.4314060991969467`"}], "}"}]}], "}"}]}]]}]], "Output",
 CellChangeTimes->{{3.7860130964845257`*^9, 3.7860133226682553`*^9}, 
   3.7860133715682516`*^9},
 CellLabel->
  "Out[311]=",ExpressionUUID->"cda9d614-01df-4da3-8c11-31e70872f309"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["x0"], "Input",
 CellChangeTimes->{{3.7860131460449886`*^9, 3.7860131465835476`*^9}},
 CellLabel->
  "In[313]:=",ExpressionUUID->"b1c253b0-006a-48cd-b172-a5f86581eca6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.7860131472049313`*^9, 3.786013429358699*^9},
 CellLabel->
  "Out[313]=",ExpressionUUID->"a9489a5c-7c5f-4dd5-9884-c8633dac0f49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["A"], "Input",
 CellChangeTimes->{3.786013434407198*^9},
 CellLabel->
  "In[314]:=",ExpressionUUID->"a23e5e15-2298-405c-84f7-29655845e601"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "20"}], ",", 
     RowBox[{"-", "22"}], ",", 
     RowBox[{"-", "24"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "21"}], ",", 
     RowBox[{"-", "28"}], ",", 
     RowBox[{"-", "21"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "22"}], ",", 
     RowBox[{"-", "17"}], ",", 
     RowBox[{"-", "15"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7860134349128447`*^9},
 CellLabel->
  "Out[314]=",ExpressionUUID->"cafc7b5b-7ea7-40ab-8a23-1800762be534"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NestWhileList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"LinearSolve", "[", 
       RowBox[{
        RowBox[{"A", "+", 
         RowBox[{"1.", "*", 
          RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}], "]"}], 
      "/", 
      RowBox[{"Norm", "[", 
       RowBox[{"LinearSolve", "[", 
        RowBox[{
         RowBox[{"A", "+", 
          RowBox[{"1.", "*", 
           RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}], "]"}], 
       "]"}]}], ")"}], "&"}], ",", "x0", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"Norm", "[", 
       RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], "&"}], ",", 
   "2"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7860133901914463`*^9, {3.786013705748043*^9, 3.786013711231883*^9}, {
   3.7860138066426687`*^9, 3.786013824681429*^9}, {3.78601404038105*^9, 
   3.7860140788033366`*^9}},
 CellLabel->
  "In[333]:=",ExpressionUUID->"34082c00-d87c-4ff9-998f-8df846cee99c"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.7860136032636127`*^9, 3.786013713296363*^9, {3.7860138081795497`*^9, 
   3.786013826032776*^9}, {3.786014044152971*^9, 3.7860140537303495`*^9}, 
   3.7860140940577235`*^9},
 CellLabel->
  "Out[333]=",ExpressionUUID->"1b8443a1-dfe3-44be-8edb-56c15bef3b8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NestWhileList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"#", "^", "2"}], "&"}], ",", "2", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"#1", "-", "#2"}], "]"}], "<", "300"}], "&"}], ",", "2"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7860138315769496`*^9, 3.7860138778132963`*^9}},
 CellLabel->
  "In[326]:=",ExpressionUUID->"3e8391a5-00d4-416a-9c12-d33eb5a3055a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "4", ",", "16", ",", "256", ",", "65536"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7860138736476517`*^9, 3.786013878554355*^9}},
 CellLabel->
  "Out[326]=",ExpressionUUID->"2068f737-d3c2-4fc7-b31d-4703f1641491"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["ops"], "Input",
 CellChangeTimes->{{3.786013617615269*^9, 3.7860136181697483`*^9}},
 CellLabel->
  "In[318]:=",ExpressionUUID->"4316ce5f-9cff-41c9-8be3-32633eba867f"],

Cell[BoxData["0.01`"], "Output",
 CellChangeTimes->{3.7860136187352357`*^9},
 CellLabel->
  "Out[318]=",ExpressionUUID->"81ce04d1-c950-4887-b5d5-b1b4fb6e8f65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Norm", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], "-", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.9021164140654769`"}], ",", "0.008645984577781398`", ",", 
     "0.4314060991969467`"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7860134896764245`*^9, 3.7860134971833096`*^9}},
 CellLabel->
  "In[316]:=",ExpressionUUID->"d9464937-c7e0-40dd-8c82-6094d8ba5f0b"],

Cell[BoxData["3.7657950415069257`"], "Output",
 CellChangeTimes->{3.7860134976051826`*^9},
 CellLabel->
  "Out[316]=",ExpressionUUID->"dcd5801c-3995-4fee-a987-3d7594380a21"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Nest", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"LinearSolve", "[", 
      RowBox[{
       RowBox[{"A", "+", 
        RowBox[{"1", "*", 
         RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}], "]"}], 
     "/", 
     RowBox[{"Norm", "[", 
      RowBox[{"LinearSolve", "[", 
       RowBox[{
        RowBox[{"A", "+", 
         RowBox[{"1", "*", 
          RowBox[{"IdentityMatrix", "[", "c", "]"}]}]}], ",", "#"}], "]"}], 
      "]"}]}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["337", 
       SqrtBox["171894"]]}], ",", 
     RowBox[{"-", 
      FractionBox["41", 
       SqrtBox["171894"]]}], ",", 
     RowBox[{"119", " ", 
      SqrtBox[
       FractionBox["2", "85947"]]}]}], "}"}], ",", "100"}], "]"}]], "Input",
 CellChangeTimes->{{3.786013753601571*^9, 3.786013755126493*^9}, {
  3.78601390491238*^9, 3.7860139246645083`*^9}, {3.786013955820198*^9, 
  3.7860140167851553`*^9}},
 CellLabel->
  "In[329]:=",ExpressionUUID->"5f10a462-741a-4397-b934-47c0a6ab9d82"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.7860140124866505`*^9, 3.78601403422252*^9}},
 CellLabel->
  "Out[329]=",ExpressionUUID->"c973dfe6-93bb-4065-a6a1-07c75dcc2ca8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Norm", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["337", 
        SqrtBox["171894"]]}], ",", 
      RowBox[{"-", 
       FractionBox["41", 
        SqrtBox["171894"]]}], ",", 
      RowBox[{"119", " ", 
       SqrtBox[
        FractionBox["2", "85947"]]}]}], "}"}], "-", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.7860137715765004`*^9, 3.7860137872106886`*^9}},
 CellLabel->
  "In[322]:=",ExpressionUUID->"b08e314c-396e-4c30-930b-2605616ae3fb"],

Cell[BoxData["3.6846906393270347`"], "Output",
 CellChangeTimes->{{3.7860137815278864`*^9, 3.786013788055482*^9}},
 CellLabel->
  "Out[322]=",ExpressionUUID->"c366888d-ff57-47a8-9b09-076633f8d3db"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"a6bbaa7e-15d1-41f3-bbd5-dde49bd2c800"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MaxEn", "[", 
   RowBox[{"A_", ",", "ops_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"b", "=", 
       RowBox[{"RandomReal", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Dimensions", "[", "A", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "}"}]}], "]"}]}], ",", "c"}], 
     "}"}], ",", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{"NestWhile", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"A", ".", "#"}], "/", 
          RowBox[{"Norm", "[", 
           RowBox[{"A", ".", "#"}], "]"}]}], "&"}], ",", "b", ",", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], "&&", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "+", "#2"}], "]"}], "]"}], ">", "ops"}]}], "&"}], 
        ",", "2"}], "]"}]}], ";", 
     RowBox[{"Return", "[", "c", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7860167221086254`*^9, 3.786016928357993*^9}, {
   3.786016979318743*^9, 3.786017072315653*^9}, {3.7860174276714168`*^9, 
   3.786017428225933*^9}, 3.7860615625825195`*^9},
 CellLabel->
  "In[125]:=",ExpressionUUID->"cc8ca43b-b77f-4649-ae91-ecf423b7f60c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MinEn", "[", 
   RowBox[{"A_", ",", "ops_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"b", "=", 
       RowBox[{"RandomReal", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Dimensions", "[", "A", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "}"}]}], "]"}]}], ",", "c"}], 
     "}"}], ",", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{"NestWhile", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"LinearSolve", "[", 
           RowBox[{"A", ",", "#"}], "]"}], "/", 
          RowBox[{"Norm", "[", 
           RowBox[{"LinearSolve", "[", 
            RowBox[{"A", ",", "#"}], "]"}], "]"}]}], "&"}], ",", "b", ",", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], "&&", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "+", "#2"}], "]"}], "]"}], ">", "ops"}]}], "&"}], 
        ",", "2"}], "]"}]}], ";", 
     RowBox[{"Return", "[", "c", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7860171907969713`*^9, 3.786017314842041*^9}, {
  3.7860173467722588`*^9, 3.786017347329768*^9}, {3.7860174355862885`*^9, 
  3.786017467617585*^9}, {3.78606149472756*^9, 3.78606150856347*^9}, {
  3.7860615437718344`*^9, 3.786061544808977*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"055991f7-bb0c-4b47-8fa1-bcf1f75d3f22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "=", 
  RowBox[{"MinEn", "[", 
   RowBox[{"A", ",", "0.01"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.786017331638122*^9, 3.7860173406161113`*^9}, {
  3.7860175930820637`*^9, 3.7860175969676723`*^9}, {3.7860176424829473`*^9, 
  3.786017644471629*^9}, {3.7860665211239023`*^9, 3.7860665219437513`*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"4e67d65f-3f15-4a4e-9ce3-5b9bac5b1460"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.7791515392157812`", ",", 
   RowBox[{"-", "0.6230540379764214`"}], ",", "0.06874987053773347`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.786017341347822*^9, 3.7860173790499773`*^9}, {
   3.78601746966112*^9, 3.7860174942802963`*^9}, {3.7860175977944613`*^9, 
   3.78601761212317*^9}, 3.7860176452256155`*^9, {3.7860615128492723`*^9, 
   3.786061586489648*^9}, {3.786066517388891*^9, 3.78606654724321*^9}},
 CellLabel->
  "Out[224]=",ExpressionUUID->"1876fbf0-1d59-4bd7-b00f-375bf52c9ea5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c", ".", "A", ".", "c"}], "/", 
  RowBox[{"(", 
   RowBox[{"c", ".", "c"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.78601764798623*^9, 3.7860176936321554`*^9}, {
  3.7860665097543087`*^9, 3.7860665125358696`*^9}},
 CellLabel->
  "In[225]:=",ExpressionUUID->"f8c1589c-1cd2-4263-9ccb-85c8a804f911"],

Cell[BoxData["0.6286399462753545`"], "Output",
 CellChangeTimes->{
  3.786017694510806*^9, {3.786066514478676*^9, 3.7860665492029696`*^9}},
 CellLabel->
  "Out[225]=",ExpressionUUID->"7671f6df-fb32-401c-b571-2c3a46e8449b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigenvalues", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7860665366766844`*^9, 3.7860665417510743`*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"d321b441-2eb1-4a5c-8361-d47eafc614bd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.2906456704847367`", ",", 
   RowBox[{"-", "3.0011098999418855`"}], ",", "0.6273986896083035`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7860665424761677`*^9, 3.7860665513611975`*^9}},
 CellLabel->
  "Out[226]=",ExpressionUUID->"ec4cbd8a-e90a-4194-8f22-f434a6e327ec"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"a778bee2-2bb5-4027-ba4b-309421cc6970"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PowerNest", "[", 
   RowBox[{"A_", ",", "ops_", ",", "h_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "x0", ",", "c", ",", "x", ",", "\[Lambda]1", ",", "i", ",", "x1", ",", 
      "x2", ",", "\[Lambda]2", ",", "d", ",", "x3", ",", "\[Lambda]3", ",", 
      "j"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"x1", "=", 
      RowBox[{"MaxEn", "[", 
       RowBox[{"A", ",", "ops"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x1", ".", "A", ".", "x1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"x1", ".", "x1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"d", "=", 
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Abs", "[", "\[Lambda]1", "]"}]}], ",", 
        RowBox[{"Abs", "[", "\[Lambda]1", "]"}], ",", "h"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]3", "=", 
      RowBox[{"{", "\[Lambda]1", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"j", "=", 
      RowBox[{"{", "x1", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"i", "<", 
        RowBox[{"Length", "[", "d", "]"}]}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x2", "=", 
           RowBox[{"MinEn", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"A", "-", 
               RowBox[{
                RowBox[{"d", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "*", 
                RowBox[{"IdentityMatrix", "[", 
                 RowBox[{"Length", "[", "x1", "]"}], "]"}]}]}], ")"}], ",", 
             "ops"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[Lambda]2", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x2", ".", "A", ".", "x2"}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"x2", ".", "x2"}], ")"}]}], "+", 
            RowBox[{"d", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[Lambda]3", "=", 
           RowBox[{"AppendTo", "[", 
            RowBox[{"\[Lambda]3", ",", "\[Lambda]2"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"j", ",", "x2"}], "]"}], ";"}], "\[IndentingNewLine]", 
         "}"}], ";", 
        RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"{", "j", "}"}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQPWdRRZKj6RvHxo3caSA6SvlqNojeknIDTE84eLAM
RG/bXlkJopV63tWB6AzOL2DaweWcWgSQXlPgqw+ib7TMSwLRhzalJoPo6Buh
G0H0r5qILSB64ZtDO0H0fL8bYLqsb/0REP0p6haYTns85QWInlT8Fkz3Lfz8
DkTfM/wHpg/3TGOIBNIlc+4ygmiNKRukQPQ21mgZEL1HYoEKiC4I4VAF0XXs
n/VA9IEWRn0QXc7EGQSit/SfCQHRfvd/R4Do3N7QSBB9SDwzB0THi+vnguiW
nPvdIHraurnTQDQATIGRfg==
  "],
 CellLabel->
  "In[250]:=",ExpressionUUID->"7219b967-85c5-4d82-8869-8cddbd255fcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PowerNest", "[", 
   RowBox[{"A", ",", "0.001", ",", "0.1"}], "]"}], "//", 
  "ListPointPlot3D"}]], "Input",
 CellChangeTimes->{{3.7860177520665503`*^9, 3.7860177743838654`*^9}, 
   3.7860178071807146`*^9, 3.786061632922494*^9, 3.786064225376978*^9, {
   3.786064259623391*^9, 3.7860643242180347`*^9}, {3.786064514535788*^9, 
   3.7860645589520016`*^9}, {3.786064671387813*^9, 3.7860646743638926`*^9}, 
   3.7860647129147882`*^9, {3.786065472656477*^9, 3.7860655276540117`*^9}, {
   3.7860656499280367`*^9, 3.786065671521247*^9}, {3.786065748776637*^9, 
   3.7860658014018984`*^9}, 3.786065937475568*^9, {3.78606616870997*^9, 
   3.786066171103569*^9}, {3.7860663012954187`*^9, 3.786066311468215*^9}, 
   3.786066375225244*^9, {3.7860666081594224`*^9, 3.786066611769767*^9}, {
   3.7860667458639603`*^9, 3.7860667556537423`*^9}, 3.7860667990117865`*^9, {
   3.7860671322016544`*^9, 3.7860671409655733`*^9}},
 CellLabel->
  "In[251]:=",ExpressionUUID->"6ab50613-8d52-4139-b0dc-b3a03fcc57d4"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.3315753, 0.4561011, 0.6388182], PointSize[
     NCache[
      Rational[1, 60], 0.016666666666666666`]], Point3DBox[CompressedData["
1:eJwV1Hs01Gkcx3Gh3FpLroMKhdDNqQjpQblETVhErUKUKMqO+6UIYVUu7dCi
0+VIJPnlllKPjlvGocbyi5hJTZgJvxmx7mW/+8f88zqf836+Z+ac0fEPcwsU
FxMTs4WPBHzMZa5rv1Fm4zZNR+nNmhT20hgYtX3FQrUV9JLyb1zU1f3Kr8yB
xGufxNHDawW4Knfn0PNvXOxzfEJQ50AizeJJWkitADXo+snchH3ohsyL+bB3
Vk1LTIS9JeoMagY3L5EShz1ujrTSDgK30H7mMgVecM1k6RO469gXC1fw2ysd
+4uhb1YQ1gwd1DknaRALfaJq6InsOBcbEdNOFLieTfcVe3A+c/b57+NcJG99
2OaEI4kbLULNVaHjcjOyORH6+eJmSjHQf/lGai4D3GbD+cFeAReZFKZOj9mT
+JhpRewQeANdICkP+w/OMzxJ2CevVZBqBS9c1SJVBe+WL984F+1IIpMixcHZ
GgGifI4uMSe4KG17rHAB3qUnjbj/VSPAP3y5Jargx5zplu/AzQPubG8FXz44
3x8F3nw8nq19iMSnxfMPMsFTLKKv+PC56PJAT+NTOxKLfI0F2XUCnMC0TI2e
5OJ1H9zyZw6RqKXQyFAT3j2NNBKiKS7eX+76utuJRAa/+Q3eqRagXx8tNzDH
uPhd5dZRaTsSbUX5zaI6AeL0FsQpCLlofs7Wmu5M4l3rzWI8qgV4OHZ6j8oo
F527eCOt9QCJB2Udb5XXC3D1plNGjSNcTF8u6Ys9QKJUw8CEvnoB2rv5k1qB
kI+6MzZmbxTysM+6ChNrJoH89fD2++BsxbG/dcBznvwjqZ5LIAMj3doyIR9r
K+tqbxLy0IqE2qcfNwg8XzlrDI661EppurCvHwlWiLlJoB375P3ERXykorfE
3wVOndOiCoIJdGZW0mUZOqvDHJTAEfMEg1x1gcCtV4nE1+AlMntt4V10t/ff
dt10AsuOVBqpivjYdIulkwJ4drAiswb2H/zLPD7CPv7BYrgK+MbAqHvMJAKT
YTJXhsG7TPUJC/A/jDpetDIIfHjHVMVDuLNnsYfhCfcInT9nxiYRaKvF04HP
4Bf7rrebg7fdClzIYhCIb8Kyr4d3x4NLH5tTPPTSgigOvUTgI6vvcrKgP33E
0zQZ+owoFQPTRAJrurZ5zoP3KvmOyIHLGLCKimMI3NkY8nkzdBYfcbz7oFMX
wspwAE9M1WT0/f899CwuW8KenkdjekUTuJSm/oID97B2GNdtg3u0jop5RMUQ
KL1J6ng/uOJTvs5ucF9L69jr4EnJXoz/Pa2hxNUY/Idh8kmpeAJRScSIN3z/
swlbpPIoHjaU2D9qD/sZz8w3l2EfW1pI3YM9JzxOrh/cuWjBmAF3yoXucY+E
O1doZgsqcM939Wuv3kOHlaV1Wwo6Pl0Z6F4k9Gt/4T2j+NjEjvW9QMRDoTlN
LZHxBGZ2MN97T/HRQ5eGk6cmeTiYStesjIB+TkIrB/pGVcqHZid5aLKtp+Rb
JIGH6V1cyyk+fj0S2XUV3C7QuWQxgsDKHx8vhkC/cGKNnhD6afJyXkYJBBYy
gqpF0M+yd28qneDha0o1Z7bB7xU5lMMJmeQjUUzOWf3vPGyTUun37DKB3grk
NzkrsnGo1bHiHxoULn6wEt35loW+tgVURG1g4+QvisvqNAqLhJUtuztYyCek
wzpAiY3p61XTq2CffeGh2xDsPXytrFK02Oh8+0C/L41C48Pm1nodLLya1vpc
WouNbV3OFIdDp8zg61kd6CSndK7P1WCj2Z1z8Y9gr7+Sg1VgfylLuulP+H/2
ulOmmQZ9p5mIvBHoV48aqBepsJHWdIDYKQ0K3d83LEO9ZWHXoFwlVxobm5KZ
VST01f2XBbLQ1xuU7IxTZyP/AzXyQuivcWe6RUA/OdS7TluNjfN+Wk7oQ1+U
Vdr8E/qTYW6lxWpsZO7ePqcM/SWORIM47P8DzTt5ng==
     "]]}, {}, {}, {}, {}},
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  ImageSize->{394.63453058086816`, 363.8452120750342},
  ImageSizeRaw->Automatic,
  PlotRange->{{-0.7794474937058702, 0.7795337204039735}, {-0.9408130800010148,
     0.9407191283895346}, Automatic},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {Automatic, Automatic}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{0.35915487135998353`, -2.4755574228624293`, 2.278732811123131},
  ViewVertical->{-0.09140379989211847, 0.0915940992100541, 
   2.4789814772845475`}]], "Output",
 CellChangeTimes->{{3.7860661514341726`*^9, 3.786066171750893*^9}, 
   3.786066219380988*^9, {3.786066298064122*^9, 3.7860663124974613`*^9}, 
   3.7860663773864317`*^9, {3.7860666031568007`*^9, 3.7860666372466326`*^9}, {
   3.786066739958748*^9, 3.786066799452608*^9}, {3.7860670929758472`*^9, 
   3.7860671417874107`*^9}, 3.7860671943025866`*^9},
 CellLabel->
  "Out[251]=",ExpressionUUID->"8a298150-fd90-41c3-afb7-24783ab1cab1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigenvectors", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7860656934845095`*^9, 3.7860656984911194`*^9}},
 CellLabel->
  "In[241]:=",ExpressionUUID->"5cca2ae9-6093-4aa4-b257-363bd24f4f99"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.267109336356725`"}], ",", 
     RowBox[{"-", "0.940671606330014`"}], ",", "0.209259483597712`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.4830789338414839`"}], ",", "0.3481261769178314`", ",", 
     "0.8033946157543936`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7792805772950433`"}], ",", "0.6229465461141876`", ",", 
     RowBox[{"-", "0.06825966990184032`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7860656992610607`*^9, 3.7860668085939403`*^9},
 CellLabel->
  "Out[241]=",ExpressionUUID->"962e56cc-368b-4e84-b295-bc3948c292a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigenvalues", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.78606580567846*^9, 3.78606581670597*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"502b507d-8487-4332-9573-76d6102e43a2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.2906456704847367`", ",", 
   RowBox[{"-", "3.0011098999418855`"}], ",", "0.6273986896083035`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7860658087731853`*^9, 3.786065817408092*^9}},
 CellLabel->
  "Out[204]=",ExpressionUUID->"0506c4a8-0054-429a-88aa-838309467843"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MaxEn", "[", 
  RowBox[{"A", ",", "0.01"}], "]"}]], "Input",
 CellChangeTimes->{{3.786058288597728*^9, 3.786058295911096*^9}, {
  3.7860647560942764`*^9, 3.786064762522086*^9}, {3.78606480404803*^9, 
  3.7860648058023386`*^9}},
 CellLabel->
  "In[168]:=",ExpressionUUID->"a6c672e7-895e-4425-90d8-5c8c16c605db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.2693850792711374`", ",", "0.9391788167414862`", ",", 
   RowBox[{"-", "0.2130136832462767`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7860647632691245`*^9, {3.786064806643092*^9, 3.786064817499563*^9}},
 CellLabel->
  "Out[168]=",ExpressionUUID->"a1a078b4-cacb-47c9-8297-f48344e4560f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "MinEn"}]], "Input",
 CellChangeTimes->{{3.7860583029605246`*^9, 3.7860583094118767`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"af174598-6a91-457e-a8bb-27be40773bf1"],

Cell[CellGroupData[{

Cell["Notebook$$60$16704`MinEn", "Print", "PrintUsage",
 CellChangeTimes->{3.786058311174121*^9},
 CellTags->
  "Info723786087111-6203782",ExpressionUUID->"adc173df-e054-41ea-bfa6-\
c996879a1b38"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"MinEn", "[", 
          RowBox[{"A_", ",", "ops_"}], "]"}], ":=", 
         RowBox[{"Module", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"b", "=", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "A", "]"}], 
                  "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
                 "}"}]}], "]"}]}], ",", "c"}], "}"}], ",", 
           RowBox[{
            RowBox[{"c", "=", 
             RowBox[{"NestWhile", "[", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"LinearSolve", "[", 
                  RowBox[{"A", ",", "#1"}], "]"}], 
                 RowBox[{"Norm", "[", 
                  RowBox[{"LinearSolve", "[", 
                   RowBox[{"A", ",", "#1"}], "]"}], "]"}]], "&"}], ",", "b", 
               ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"Abs", "[", 
                  RowBox[{"Norm", "[", 
                   RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], 
                "&"}], ",", "2"}], "]"}]}], ";", 
            RowBox[{"Return", "[", "c", "]"}]}]}], "]"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`MinEn],
  Editable->False]], "Print",
 CellChangeTimes->{3.7860583111906247`*^9},
 CellTags->
  "Info723786087111-6203782",ExpressionUUID->"d496c029-0b31-4279-b47a-\
210726548588"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MaxEn", "[", 
  RowBox[{"A", ",", "0.01"}], "]"}]], "Input",
 CellChangeTimes->{{3.7860583274170465`*^9, 3.7860583374398193`*^9}, {
  3.786058393152277*^9, 3.786058394745395*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"6913f12d-5219-496f-a65e-e30f8286de6f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.26927468373391666`", ",", "0.9392517858273761`", ",", 
   RowBox[{"-", "0.21283145331478615`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.786058338443987*^9, 3.786058395636053*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"ff23de8a-0228-440f-82d8-549d2fe8a995"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigenvalues", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7860583474477563`*^9, 3.7860583730262585`*^9}, {
  3.786065222284811*^9, 3.7860652774547443`*^9}, {3.786065330126204*^9, 
  3.7860653333086653`*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"12ed0481-851e-4dff-b501-c08765268893"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.2906456704847367`", ",", 
   RowBox[{"-", "3.0011098999418855`"}], ",", "0.6273986896083035`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7860583640638666`*^9, 3.786058373968709*^9}, {
   3.7860652308479095`*^9, 3.786065278299486*^9}, 3.7860653339011173`*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"89948859-8f0c-4b8b-b3b4-245b447c313c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"A", ".", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7860586872446775`*^9, 3.786058703350376*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"e2898a21-aea2-4443-bcf2-d673ae1f688a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"9.721932879032304`"},
      {"2.433142063466917`"},
      {
       RowBox[{"-", "11.639373379792488`"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7860587037574725`*^9},
 CellLabel->
  "Out[78]//MatrixForm=",ExpressionUUID->"ecc0331d-f809-421b-a28d-\
3beef4f96ff2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"A", ".", 
   RowBox[{"(", 
    RowBox[{"2", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ")"}]}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.786058707939027*^9, 3.7860587267659445`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"0143a3bf-870c-4783-b6d9-bdda9a406b9d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"19.443865758064607`"},
      {"4.866284126933834`"},
      {
       RowBox[{"-", "23.278746759584976`"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.78605871603356*^9, 3.786058727957762*^9}},
 CellLabel->
  "Out[80]//MatrixForm=",ExpressionUUID->"b8611c6a-2172-4325-a062-\
807ffd299638"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"9f1dc401-9098-4e05-a2f5-6c5533ddef13"]
}, Open  ]]
},
WindowSize->{638, 628},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
CellContext->Notebook,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info723786087111-6203782"->{
  Cell[58263, 1516, 196, 4, 45, "Print",ExpressionUUID->"adc173df-e054-41ea-bfa6-c996879a1b38",
   CellTags->"Info723786087111-6203782"],
  Cell[58462, 1522, 2205, 59, 96, "Print",ExpressionUUID->"d496c029-0b31-4279-b47a-210726548588",
   CellTags->"Info723786087111-6203782"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info723786087111-6203782", 65190, 1727}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 163, 3, 96, "Title",ExpressionUUID->"70258d93-0b0d-4b4f-a97b-34523265cc83"],
Cell[746, 27, 6252, 138, 588, "Input",ExpressionUUID->"ea4d589b-5cdd-4f5e-b4f6-b204fc4ebf85"],
Cell[CellGroupData[{
Cell[7023, 169, 952, 14, 28, "Input",ExpressionUUID->"07d1810b-eee0-432a-9c52-8a16a0b5ddd9"],
Cell[7978, 185, 1345, 18, 32, "Output",ExpressionUUID->"4ebab87b-0de4-41e4-8088-455370e66844"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9360, 208, 436, 11, 28, "Input",ExpressionUUID->"62d9cd52-0890-42da-bbdb-196254dd9149"],
Cell[9799, 221, 381, 10, 32, "Output",ExpressionUUID->"45e85d3b-9ac1-4130-9f41-f6d1ef2c4cf1"]
}, Open  ]],
Cell[10195, 234, 329, 10, 8, "Text",ExpressionUUID->"7e447773-389d-4b86-ad2b-9fd9cbfa4936"],
Cell[10527, 246, 5037, 121, 607, "Input",ExpressionUUID->"a267213c-e80a-491c-9cb4-346f02eb4189"],
Cell[CellGroupData[{
Cell[15589, 371, 453, 8, 28, "Input",ExpressionUUID->"ccfe46eb-dce6-41de-8332-b3338026c39e"],
Cell[16045, 381, 7180, 132, 451, "Output",ExpressionUUID->"c73591f3-57a4-4abb-a889-020ec52f2e9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23262, 518, 565, 14, 66, "Input",ExpressionUUID->"959fb74e-c828-44aa-9984-442517bed27f"],
Cell[23830, 534, 178, 3, 32, "Output",ExpressionUUID->"cd6915bb-62e0-4607-ae27-45a418dc748b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24045, 542, 517, 13, 66, "Input",ExpressionUUID->"995d2968-36de-4f5e-8ca5-fb504d5c8a26"],
Cell[24565, 557, 174, 3, 32, "Output",ExpressionUUID->"20d6a8ad-8e67-4d00-b2c6-a976c9e5555e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24776, 565, 152, 3, 28, "Input",ExpressionUUID->"e5e7b891-e3d0-4afb-885f-385b605de398"],
Cell[24931, 570, 427, 13, 32, "Output",ExpressionUUID->"fe21de48-31fa-45f8-8a0d-53de323dab26"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25395, 588, 243, 5, 45, "Input",ExpressionUUID->"03dcb426-6d13-4f54-8258-b17335f74d06"],
Cell[25641, 595, 334, 8, 32, "Output",ExpressionUUID->"f98e23d2-3fe2-4def-8389-a2ed0f9ab95d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26012, 608, 288, 7, 28, "Input",ExpressionUUID->"28e10167-3f0e-43a3-992c-38dc21445c97"],
Cell[26303, 617, 409, 10, 24, "Message",ExpressionUUID->"4536c2fc-fd4f-4387-92be-5da6c9bb21fc"],
Cell[26715, 629, 190, 4, 32, "Output",ExpressionUUID->"f18a7b4e-b7d8-40f7-8ad1-445894d13682"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26942, 638, 202, 4, 28, "Input",ExpressionUUID->"0f93f278-3d94-4903-9123-69ff78f3f5eb"],
Cell[27147, 644, 155, 3, 32, "Output",ExpressionUUID->"07165002-8537-4b16-b894-2925fd00b0f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27339, 652, 258, 6, 28, "Input",ExpressionUUID->"d40e1836-e906-4bd5-97c5-2cdec4ec5b1d"],
Cell[27600, 660, 210, 5, 32, "Output",ExpressionUUID->"3177f245-2490-4774-bde1-3b83e7d38dc8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27847, 670, 207, 4, 28, "Input",ExpressionUUID->"6c3cf48a-2bc0-46e4-9a38-1756b51dd5df"],
Cell[28057, 676, 157, 3, 32, "Output",ExpressionUUID->"6ac0c248-caeb-4fb9-8531-1497eec9645a"]
}, Open  ]],
Cell[28229, 682, 244, 5, 45, "Input",ExpressionUUID->"de99d289-e1e7-4952-be7b-e82b6409ea03"],
Cell[CellGroupData[{
Cell[28498, 691, 1402, 39, 196, "Input",ExpressionUUID->"c87d2b94-1ea6-4476-9ec6-6bb60ef9eaf5"],
Cell[29903, 732, 455, 12, 32, "Output",ExpressionUUID->"20f87e0b-a940-48cc-aab5-1c87338c8758"],
Cell[30361, 746, 1114, 19, 45, "Message",ExpressionUUID->"bd8d6f45-ad7c-4edb-92f4-041ff9db221e"],
Cell[31478, 767, 1063, 18, 45, "Message",ExpressionUUID->"82207d85-4fa7-4cd4-85a0-4c6c6aa2d37c"],
Cell[32544, 787, 1114, 19, 45, "Message",ExpressionUUID->"2160939b-6702-44d3-8614-c4b907ec8c6f"],
Cell[33661, 808, 517, 11, 24, "Message",ExpressionUUID->"42fa6023-d65e-4793-af2b-5bb070337c78"],
Cell[34181, 821, 1521, 45, 90, "Output",ExpressionUUID->"cda9d614-01df-4da3-8c11-31e70872f309"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35739, 871, 181, 3, 28, "Input",ExpressionUUID->"b1c253b0-006a-48cd-b172-a5f86581eca6"],
Cell[35923, 876, 232, 5, 32, "Output",ExpressionUUID->"a9489a5c-7c5f-4dd5-9884-c8633dac0f49"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36192, 886, 152, 3, 28, "Input",ExpressionUUID->"a23e5e15-2298-405c-84f7-29655845e601"],
Cell[36347, 891, 585, 20, 32, "Output",ExpressionUUID->"cafc7b5b-7ea7-40ab-8a23-1800762be534"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36969, 916, 1020, 30, 156, "Input",ExpressionUUID->"34082c00-d87c-4ff9-998f-8df846cee99c"],
Cell[37992, 948, 315, 6, 32, "Output",ExpressionUUID->"1b8443a1-dfe3-44be-8edb-56c15bef3b8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38344, 959, 417, 12, 45, "Input",ExpressionUUID->"3e8391a5-00d4-416a-9c12-d33eb5a3055a"],
Cell[38764, 973, 264, 6, 32, "Output",ExpressionUUID->"2068f737-d3c2-4fc7-b31d-4703f1641491"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39065, 984, 180, 3, 28, "Input",ExpressionUUID->"4316ce5f-9cff-41c9-8be3-32633eba867f"],
Cell[39248, 989, 159, 3, 32, "Output",ExpressionUUID->"81ce04d1-c950-4887-b5d5-b1b4fb6e8f65"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39444, 997, 434, 11, 66, "Input",ExpressionUUID->"d9464937-c7e0-40dd-8c82-6094d8ba5f0b"],
Cell[39881, 1010, 173, 3, 32, "Output",ExpressionUUID->"dcd5801c-3995-4fee-a987-3d7594380a21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40091, 1018, 1056, 33, 196, "Input",ExpressionUUID->"5f10a462-741a-4397-b934-47c0a6ab9d82"],
Cell[41150, 1053, 185, 3, 32, "Output",ExpressionUUID->"c973dfe6-93bb-4065-a6a1-07c75dcc2ca8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41372, 1061, 602, 19, 88, "Input",ExpressionUUID->"b08e314c-396e-4c30-930b-2605616ae3fb"],
Cell[41977, 1082, 197, 3, 32, "Output",ExpressionUUID->"c366888d-ff57-47a8-9b09-076633f8d3db"]
}, Open  ]],
Cell[42189, 1088, 329, 10, 8, "Text",ExpressionUUID->"a6bbaa7e-15d1-41f3-bbd5-dde49bd2c800"],
Cell[42521, 1100, 1524, 44, 175, "Input",ExpressionUUID->"cc8ca43b-b77f-4649-ae91-ecf423b7f60c"],
Cell[44048, 1146, 1690, 47, 175, "Input",ExpressionUUID->"055991f7-bb0c-4b47-8fa1-bcf1f75d3f22"],
Cell[CellGroupData[{
Cell[45763, 1197, 413, 8, 28, "Input",ExpressionUUID->"4e67d65f-3f15-4a4e-9ce3-5b9bac5b1460"],
Cell[46179, 1207, 534, 10, 32, "Output",ExpressionUUID->"1876fbf0-1d59-4bd7-b00f-375bf52c9ea5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46750, 1222, 332, 8, 28, "Input",ExpressionUUID->"f8c1589c-1cd2-4263-9ccb-85c8a804f911"],
Cell[47085, 1232, 222, 4, 32, "Output",ExpressionUUID->"7671f6df-fb32-401c-b571-2c3a46e8449b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47344, 1241, 217, 4, 45, "Input",ExpressionUUID->"d321b441-2eb1-4a5c-8361-d47eafc614bd"],
Cell[47564, 1247, 312, 7, 32, "Output",ExpressionUUID->"ec4cbd8a-e90a-4194-8f22-f434a6e327ec"]
}, Open  ]],
Cell[47891, 1257, 329, 10, 8, "Text",ExpressionUUID->"a778bee2-2bb5-4027-ba4b-309421cc6970"],
Cell[48223, 1269, 3184, 80, 421, "Input",ExpressionUUID->"7219b967-85c5-4d82-8869-8cddbd255fcc"],
Cell[CellGroupData[{
Cell[51432, 1353, 1025, 17, 45, "Input",ExpressionUUID->"6ab50613-8d52-4139-b0dc-b3a03fcc57d4"],
Cell[52460, 1372, 3333, 64, 381, "Output",ExpressionUUID->"8a298150-fd90-41c3-afb7-24783ab1cab1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55830, 1441, 218, 4, 45, "Input",ExpressionUUID->"5cca2ae9-6093-4aa4-b257-363bd24f4f99"],
Cell[56051, 1447, 686, 18, 52, "Output",ExpressionUUID->"962e56cc-368b-4e84-b295-bc3948c292a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56774, 1470, 211, 4, 45, "Input",ExpressionUUID->"502b507d-8487-4332-9573-76d6102e43a2"],
Cell[56988, 1476, 310, 7, 32, "Output",ExpressionUUID->"0506c4a8-0054-429a-88aa-838309467843"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57335, 1488, 334, 7, 28, "Input",ExpressionUUID->"a6c672e7-895e-4425-90d8-5c8c16c605db"],
Cell[57672, 1497, 332, 7, 32, "Output",ExpressionUUID->"a1a078b4-cacb-47c9-8297-f48344e4560f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58041, 1509, 197, 3, 28, "Input",ExpressionUUID->"af174598-6a91-457e-a8bb-27be40773bf1"],
Cell[CellGroupData[{
Cell[58263, 1516, 196, 4, 45, "Print",ExpressionUUID->"adc173df-e054-41ea-bfa6-c996879a1b38",
 CellTags->"Info723786087111-6203782"],
Cell[58462, 1522, 2205, 59, 96, "Print",ExpressionUUID->"d496c029-0b31-4279-b47a-210726548588",
 CellTags->"Info723786087111-6203782"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[60716, 1587, 282, 5, 28, "Input",ExpressionUUID->"6913f12d-5219-496f-a65e-e30f8286de6f"],
Cell[61001, 1594, 301, 5, 32, "Output",ExpressionUUID->"ff23de8a-0228-440f-82d8-549d2fe8a995"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61339, 1604, 319, 6, 45, "Input",ExpressionUUID->"12ed0481-851e-4dff-b501-c08765268893"],
Cell[61661, 1612, 386, 8, 32, "Output",ExpressionUUID->"89948859-8f0c-4b8b-b3b4-245b447c313c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62084, 1625, 288, 6, 45, "Input",ExpressionUUID->"e2898a21-aea2-4443-bcf2-d673ae1f688a"],
Cell[62375, 1633, 855, 25, 79, "Output",ExpressionUUID->"ecc0331d-f809-421b-a28d-3beef4f96ff2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63267, 1663, 339, 9, 45, "Input",ExpressionUUID->"0143a3bf-870c-4783-b6d9-bdda9a406b9d"],
Cell[63609, 1674, 877, 25, 79, "Output",ExpressionUUID->"b8611c6a-2172-4325-a062-807ffd299638"]
}, Open  ]],
Cell[64501, 1702, 329, 10, 8, "Text",ExpressionUUID->"9f1dc401-9098-4e05-a2f5-6c5533ddef13"]
}, Open  ]]
}
]
*)

